home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VarHelper 17995462001.psc / modVars.bas < prev   
Encoding:
BASIC Source File  |  2001-02-24  |  974 b   |  28 lines
  1. Attribute VB_Name = "modVars"
  2. Option Explicit
  3.  
  4. Public Const sAddinName           As String = "VarHelper"
  5.  
  6. Public Const LB_GETTOPINDEX       As Long = &H18E
  7. Public Const LB_SETTOPINDEX       As Long = &H197
  8.  
  9. Public cSearchObject              As clsSearch
  10. Public colCodes                   As FastCollection
  11. Public colVariables               As FastCollection
  12. Public colVariableNames           As FastCollection
  13.  
  14. Public Function ToDoOnError(inErr As ErrObject, inProcName As String) As Integer
  15.  
  16.  Dim Msg As String
  17.  
  18.   Msg = inErr.Source & " caused error """ & inErr.Description & """ (" & inErr.Number & ")" & vbCrLf _
  19.         & "in module clsSearch procedure " & inProcName & ", line " & Erl & "."
  20.  
  21.   ToDoOnError = MsgBox(Msg, vbAbortRetryIgnore + vbMsgBoxHelpButton + vbCritical, _
  22.                 "What to you want to do?", inErr.HelpFile, inErr.HelpContext)
  23.  
  24. End Function
  25.  
  26. ':) Ulli's Code Formatter V2.0 (2001-01-23 10:53:17) 11 + 14 = 25 Lines
  27.  
  28.